home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO073.dsk / PRINT.A.LIST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  59 lines
  1. 10  REM    PRINT.A.LIST  
  2. 20  REM  TURN ON 80 COL
  3. 30  PRINT  CHR$(4);"PR#3"
  4. 40  PRINT  CHR$(12); CHR$(18)
  5. 50  REM READ TICKET NUMBERS INTO AN ARRAY
  6. 60  DIM T$(50):D$ =  CHR$(4)
  7. 70  VTAB (1): POKE 1403,30: PRINT "PRINT a LIST"
  8. 80  VTAB (2): PRINT "==============================================================================="
  9. 90  VTAB (22): PRINT "==============================================================================="
  10. 100  PRINT D$;"PREFIX/PROGRAM/LISTS"
  11. 110  VTAB (3): PRINT D$;"CAT"
  12. 120  VTAB (23): POKE 1403,0: CALL  -868: PRINT "Type GROUP NAME without '.L649' ";: CALL  -657
  13. 130 A$ = "": FOR Z = 512 TO 767: IF  PEEK(Z) < >141  THEN A$ = A$ + CHR$( PEEK(Z) -128): NEXT Z
  14. 140 L$ = A$
  15. 150  IF ( ASC(L$) <65  OR  ASC(L$) >122)  THEN 120
  16. 160 L$ = L$ +".L649"
  17. 170  ONERR  GOTO 520
  18. 180  PRINT D$;"PREFIX/PROGRAM/LISTS"
  19. 190  PRINT D$;"OPEN";L$
  20. 200  PRINT D$;"READ";L$
  21. 210  FOR D = 1 TO 50
  22. 220 : INPUT T$(D)
  23. 230  NEXT D
  24. 240  POKE 216,0
  25. 250  PRINT D$;"CLOSE";L$
  26. 260  PRINT D$;"PREFIX/PROGRAM"
  27. 270  REM DISPLAY TICKET NUMBERS
  28. 280  GOSUB 360
  29. 290  POKE 1403,28
  30. 300  VTAB (23): POKE 1403,0: CALL  -868: PRINT "[P]rinter or [ESC] ";
  31. 310  GET ANS$
  32. 320  IF ANS$ =  CHR$(27)  THEN  PRINT D$;"-Menu"
  33. 330  GOSUB 570
  34. 340  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN  PRINT  CHR$(4);"PR#1"
  35. 350  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN  PRINT "     ";L$;" Numbers "
  36. 360  VTAB (3): POKE 1403,0
  37. 370 C = 0: GOSUB 570
  38. 380  VTAB (3): POKE 1403,0
  39. 390  FOR D = 1 TO 50
  40. 400 C = C +1: IF C = 3  THEN C = 0
  41. 410  IF D <10  THEN SP$ = " "
  42. 420  IF D >9  THEN SP$ = ""
  43. 430  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN SP$ = SP$ +"      "
  44. 440  IF ( LEFT$(T$(D),2) < >"00")  THEN  PRINT SP$;"[";D;"] ";T$(D);"    ";
  45. 450  IF ( LEFT$(T$(D),2) = "00")  THEN 480
  46. 460  IF C = 0  THEN  PRINT ""
  47. 470  NEXT D
  48. 480  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN  PRINT 
  49. 490  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN  PRINT  CHR$(4);"PR#0"
  50. 500  IF (ANS$ = "P")  OR (ANS$ = "p")  THEN  PRINT  CHR$(4);"-Menu"
  51. 510  RETURN 
  52. 520  REM  CORRECT LIST NAME
  53. 530  PRINT D$;"CLOSE";L$
  54. 540  PRINT D$;"DELETE";L$
  55. 550  PRINT D$;"PREFIX/PROGRAM"
  56. 560  GOTO 120
  57. 570  REM  CLEAR SCREEN DATA
  58. 580  FOR V = 3 TO 21: VTAB (V): POKE 1403,0: PRINT "";: CALL  -868: NEXT V
  59. 590  RETURN